Strict

Import nrgsMonkeyLib.php

Function Main:Int()
	Print "php Test 3~n"
	
	' ////////
	
	Local strWordCount$[] = str_word_count( "This is a test word count thing", 2 )
	
	For Local cnt%=0 To strWordCount.Length - 1
		Print strWordCount[cnt]
	Next
	
	strWordCount = str_word_count( "This is a test word count thing", 1 )
	
	For Local cnt%=0 To strWordCount.Length - 1
		Print strWordCount[cnt]
	Next
	
	Print "str_word_count test: " + str_word_count( "This is a test word count thing" )
	
	' ////////
	
	Print "~n~nCount Test~n"
	
	Local varstr$
	
	If ( empty( varstr ) )
		Print "String Variable is empty"
	End
	
	Local varint%
	
	If ( empty( varint ) )
		Print "Int Variable is empty"
	End
	
	Local varfloat#
	
	If ( empty( varfloat ) )
		Print "Float Variable is empty"
	End
	
	Print "~n"
	
	varstr = ""
	varint = 0
	varfloat = 0
	
	If ( empty( varstr ) )
		Print "String Variable is still empty"
	End If
	
	If ( empty( varint ) )
		Print "Int Variable is still empty"
	End If
	
	If ( empty( varfloat ) )
		Print "Float Variable is still empty"
	End If
End
